3 REM DAS LEBEN DES BRAIN PART II
5 REM PUBLIC DOMAIN SOFT
6 REM (W) BY PETER DIEHM 8.2.92-12.2.92
8 POKE 650,255:POKE657,128:PRINTCHR$(14)""
9 POKE 53280,0:POKE 53281,0:PRINT"[147]":GOTO 1550
10 REM UNTERPROGRAMM TASTE
11 PRINTSPC(30)"-[212]ASTE-[146]"
12 GET F$:IFF$="" THEN 12
13 RETURN
50 REM INVENTAR
51 PRINTSPC(1)" [154] [201]NVENTAR: [146]
52 [139] F[178]1 [167][153][166]1)"EINE ASCACKEL.
54 IF B=1 THENPRINTSPC(1)"EINE [193]XT.
55 [139] C[178]1 [167][153][166]1)"EINEN ASCISCH.
56 IF O=1 THENPRINTSPC(1)"EIN [207]ELLAEMPCHEN.
58 [139] D[178]1 [167][153][166]1)"EINEN STR$REIZACK.
60 IF Z=1 THENPRINTSPC(1)"EINE [193]NGEL.
62 [139] L[178]1 [167][153][166]1)"EINE (null)ETROPA (null)AFFEEMASCHINE.
63 IF M=1 THENPRINTSPC(1)"EIN [211]EIL.
64 [139] CJ[178]1 [167][153][166]1)"ATNNSICHTSKARTEN.
67 GOTO 100
80 REM KOMMANDOS
81 PRINTSPC(0)" NIMM,NEHME,LIES,LESE,ISS,ESSE,
82 [153][166]0)" TRINKE,INVENTAR,INVENTORY,KLOPFE,
83 PRINTSPC(0)" KOMMANDOS,BLICKE,BLICK,GEBE,GIB,LOAD,
84 [153][166]0)" LADE,SAVE,SPEICHERE,SCHLAF,SCHLAFE,
86 PRINTSPC(0)" BENUTZ,BENUTZE,FRAGE,GRABE,SAGE,SAG,
87 [153][166]0)" SCHLAGE,SCHLAG,DRUECKE,DRUECK,N,S,W,
88 PRINTSPC(0)" O,R,H,SICHERN.
100 [153][166]1)"(null)ETZTE VALINGABE:"I$""
101 [133]" CONT -=> WAIT ";I$
102 [139] I$[178]"SICHERN" [176] I$[178]"SICHERE" [167] 1600
103 [139] [195](I$)[178]2 [167] 138
104 [139] I$[178]"NORDEN" [167] 820
105 [139] I$[178]"SUEDEN" [167] 860
106 [139] I$[178]"WESTEN" [167] 900
107 [139] I$[178]"OSTEN" [167] 940
108 [139] I$[178]"HOCH" [176] I$[178]"RAUF" [167] 195
109 [139] I$[178]"RUNTER" [167] 185
110 [139] I$[178]"KLOPFE" [176] I$[178]"KLOPF" [167] 800
111 [139] I$[178]"KOMMANDOS" [176] I$[178]"HILFE" [167] 80
112 [139] I$[178]"INVENTAR" [176] I$[178]"INVENTORY" [167] 50
113 [139] I$[178]"SCHLAF" [176] I$[178]"SCHLAFE" [167] 700
114 [139] I$[178]"LOAD" [176] I$[178]"LADE" [167] 600
115 [139] I$[178]"SAVE" [176] I$[178]"SPEICHERE" [167] 650
116 [139] I$[178]"GRAB" [176] I$[178]"GRABE" [167] 1100
117 [139] I$[178]"BLICK" [176] I$[178]"BLICKE" [167] 1000
118 [139] [195](I$)[177]1 [167] 150
119 [139] [195](I$)[178]1 [167] 130
120 [153][166]1)"VALRST VALINGEBEN DANN (null)ETURN !
122 GOTO 100
130 IF I$="N" THEN 820
131 IF I$="S" THEN 860
132 IF I$="W" THEN 900
134 IF I$="O" THEN 940
138 IF I$="R" THEN 185
139 IF I$="H" THEN 195
145 PRINTSPC(1)" [196]IESE [193]BKUERZUNG VERSTEHE ICH NICHT !"
146 GOTO100
150 GOSUB 500
151 IF V$="DRUECK" OR V$="DRUECKE" THEN 1200
152 REM VERTEILUNG
153 IF V$="NIMM" OR V$="NEHME" THEN 300
154 IF V$="LIES" OR V$="LESE" THEN 370
155 IF V$="SCHLAG" OR V$="SCHLAGE" THEN 400
156 IF V$="INVENTAR" OR V$="INVENTORY" THEN 50
157 IF V$="HILFE" OR V$="KOMMANDOS" THEN 80
158 IF V$="BLICKE" OR V$="BLICK" THEN 1000
160 IF V$="GEBE" OR V$="GIB" THEN 450
162 IF V$="LOAD" OR V$="LADE" THEN 600
163 IF V$="SAVE" OR V$="SPEICHERE" THEN 650
165 IF V$="SCHLAF" OR  V$="SCHLAFE" THEN 700
166 IF V$="BENUTZ" OR V$="BENUTZE" THEN 720
169 IF V$="KLOPFE" OR V$="KLOPF" THEN 800
170 IF V$="TRINK" OR V$="TRINKE" THEN 1130
172 IF V$="FRAGE" OR V$="FRAG" THEN 220
173 IF V$="SAGE" OR V$="SAG" THEN 250
175 IF V$="GRAB" OR V$="GRABE" THEN 1100
178 IF V$="ISS" OR V$="ESSE" THEN 1130
180 PRINTSPC(1)"[196]AS [214]ERB VERSTEHE ICH SO NICHT !"
181 GOTO100
185 IF A=14 THEN A=12:GOTO 211
186 IF A=24 THEN A=21:GOTO 211
189 PRINTSPC(1)"[200]IER GEHTS NICHT RUNTER !":GOTO 100
195 REM HOCH
196 IF A=12 THEN A=14:GOTO 210
197 IF A=21 THEN A=24:GOTO 210
199 PRINTSPC(1)"[200]IER GEHTS NICHT HOCH !":GOTO 100
210 PRINTSPC(1)"[196]U GEHST AN [196]ECK !":GOTO 1300
211 PRINTSPC(1)"[196]U VERLAESST DAS [211]CHIFF !":GOTO 1300
220 REM FRAG
221 IF A=15 AND GC=0 THEN 2520
222 IF A=8 AND L=0 THEN 2530
223 IF A=8 AND L=1 THEN 2540
240 PRINTSPC(1)"[196]U HAST VIELLEICHT [198]RAGEN.":GOTO 100
250 REM SAGE
252 IF A=15 THEN 2570
290 PRINTSPC(1)"[199]ENAU DAS  SAGE [146] ICH AUCH IMMER !":GOTO 100
300 REM NIMM
301 IF A=5 AND O$="FACKEL" THEN F=1:GOTO 360
303 IF A=13 THEN 1400
304 IF A=16 AND O$="ANGEL" THEN Z=1:GOTO 360
355 PRINTSPC(1)"[196]IESEN [199]EGENSTAND SEHE ICH NICHT !":GOTO100
360 PRINTSPC(1)"[196]U NIMMST DAS [212]EIL AN DICH !":GOSUB10:GOTO1000
370 REM LIES
390 PRINTSPC(1)"[196]AS KANNST DU NICHT LESEN !":GOTO 100
400 REM SCHLAGE
403 IF A=8 AND O$="HAENDLER" THEN 2550
404 IF A=15 AND O$="ZYKLOPEN" THEN 2560
440 PRINTSPC(1)"[196]IES VERSTOESST GEGEN DIE [199]ENFER
442 [153][166]1)"(null)ONFENSSION !":[137] 100
450 [143] GIB
451 [139] O$[178]"ANSICHTSKARTEN" [175] A[178]8 [167] 1280
452 [139] A[178]15 [175] O$[178]"AXT" [167] 1290
480 [153][166]1)"PEEKEHALT DEIN (null)EUG LIEBER !":[137] 100
499 [128]
500 [129] T[178]1 [164] [195](I$)
510 [139] [202](I$,T,1)[178]" " [167] 530
520 [130] T:O$[178]"":V$[178]"":[142]
530 V$[178][200](I$,T[171]1)
540 O$[178][201](I$,[195](I$)[171]T)
550 [142]
600 [143] LOAD
601 [139] PD[178]1 [167][153][166]1)"PEEKRAIN (null)ART RIGHT$RIGHT$ DEF (null)OAD WAIT...
602 IF PD=2 THENPRINTSPC(1)"[194]RAIN [208]ART [201][201][201]  [204]OAD [146]...
603 [133]"  ASCILE WAIT (null)AME ";C$
605 [159]1,8,4,"B2"[170]C$[170]",S,R"
607 [132]1,A,B,C,D,E,F,O,L,M,W,Z,N,S,GA,GB,CJ,GC
620 [160]1:[141]10
621 [137]4000
650 [143] SAVE
651 [139] PD[178]1 [167][153][166]1)"PEEKRAIN (null)ART RIGHT$RIGHT$ DEF (null)AVE WAIT":R$[178][199](13)
652 [139] PD[178]2 [167][153][166]1)"PEEKRAIN (null)ART RIGHT$RIGHT$RIGHT$ SYS (null)AVE WAIT":R$[178][199](13)
653 [133]"  ASCILE WAIT (null)AME ";C$
655 [159]2,8,15,"S:B2"[170]C$[170]"":[160]2
656 [159]1,8,4,"B2"[170]C$[170]",S,W"
657 [152]1,A;R$;B;R$;C;R$;D;R$;E;R$;F;R$;O;R$;L;R$;M;R$;W;R$;Z;R$;N;R$;S
658 [152]1,GA;R$;GB;R$;CJ;R$;GC
670 [160]1:[141]10
671 [137]1000
700 [143] SCHLAF
718 [153][166]1)"STR$U SCHLAEFST EINE (null)UNDE...":[137] 100
720 [143] BENUTZE
721 [139] O$[178]"OELLAEMPCHEN" [167] 1250
722 [139] A[178]14 [175] O$[178]"HAND" [167] 1500
723 [139] O$[178]"ANGEL" [175] Z[178]1 [167] 2500
725 [139] O$[178]"BOOT" [175] A[178]24 [167] 3000
780 [153][166]1)"STR$AS KANNST DU NICHT BENUTZEN.":[137] 100
800 [143] KLOPFE
818 [153][166]1)"STR$U KLOPFST AN DEINEN (null)OPF !":[137] 100
820 [143] NORDEN
821 [139] A[178]11 [167] A[178]13:[137] 856
822 [139] A[178]9 [167] A[178]10:[137] 856
823 [139] A[178]8 [167] A[178]7:[137] 856
824 [139] A[178]7 [167] A[178]6:[137] 856
825 [139] A[178]1 [167] A[178]2:[137] 856
826 [139] A[178]2 [175] GB[178]1 [167] A[178]3:[137] 856
827 [139] A[178]22 [167] A[178]19:[137] 856
828 [139] A[178]15 [167] A[178]16:[137] 856
830 [139] A[178]3 [175] GA[178]1 [167] A[178]5:[137] 856
832 [139] GB[178]0 [175] A[178]2 [167] 1260
855 [153][166]1)"STR$ORTHIN FUEHRT SYS KEIN WAIT (null)EG.":[137]100
856 [153][166]1)"STR$U LAUEFST NACH (null)ORDEN...":[137] 1300
857 [153][166]1)"STR$U MARSCHIERST NACH (null)UEDEN...":[137] 1300
858 [153][166]1)"STR$U GEHST (null)ICHTUNG (null)ESTEN.":[137] 1300
859 [153][166]1)"STR$U GEHST NACH (null)STEN...":[137] 1300
860 [143] SUEDEN
861 [139] A[178]13 [167] A[178]11:[137] 857
862 [139] A[178]10 [167] A[178]9:[137] 857
863 [139] A[178]7 [167] A[178]8:[137] 857
864 [139] A[178]6 [167] A[178]7:[137] 857
865 [139] A[178]2 [167] A[178]1:[137] 857
866 [139] A[178]3 [167] A[178]2:[137] 857
867 [139] A[178]19 [167] A[178]22:[137] 857
868 [139] A[178]16 [167] A[178]15:[137] 857
869 [139] A[178]5 [167] A[178]3:[137] 857
870 [137] 855
900 [143] WESTEN
901 [139] A[178]11 [167] A[178]12:[137] 858
903 [139] A[178]10 [167] A[178]11:[137] 858
904 [139] A[178]1 [167] A[178]10:[137] 858
906 [139] A[178]6 [167] A[178]1:[137] 858
907 [139] A[178]7 [167] A[178]9:[137] 858
908 [139] A[178]2 [167] A[178]13:[137] 858
910 [139] A[178]3 [167] A[178]4:[137] 858
912 [139] A[178]19 [167] A[178]20:[137] 858
913 [139] A[178]18 [167] A[178]19:[137] 858
915 [139] A[178]17 [167] A[178]15:[137] 858
917 [139] A[178]22 [167] A[178]21:[137] 858
918 [139] A[178]23 [167] A[178]22:[137] 858
920 [139] A[178]15 [175] GC[178]1 [167] A[178]18:[137] 858
925 [137] 855
940 [143] OSTEN
941 [139] A[178]12 [167] A[178]11:[137] 859
943 [139] A[178]11 [167] A[178]10:[137] 859
944 [139] A[178]10 [167] A[178]1:[137] 859
946 [139] A[178]1 [167] A[178]6:[137] 859
947 [139] A[178]9 [167] A[178]7:[137] 859
948 [139] A[178]13 [167] A[178]2:[137] 859
950 [139] A[178]4 [167] A[178]3:[137] 859
952 [139] A[178]20 [167] A[178]19:[137] 859
953 [139] A[178]19 [167] A[178]18:[137] 859
955 [139] A[178]15 [167] A[178]17:[137] 859
957 [139] A[178]21 [167] A[178]22:[137] 859
958 [139] A[178]22 [167] A[178]23:[137] 859
959 [139] A[178]18 [167] A[178]15:[137] 859
960 [137] 855
1000 [143] RAUEME
1001 [153]"LOAD"
1002 [153][166]1)"       STR$AS CONT (null)EBEN WAIT DES PEEKRAIN !
1003 IF A<15 THENPRINTSPC(1)" [208]ART [201][201] [194]RAIN IN [193]EGYPTEN
1004 [139] A[177]14 [167][153][166]1)" (null)ART RIGHT$RIGHT$RIGHT$ PEEKRAIN BEIM (null)YKLOPEN !"
1005 [129]I[178]1[164]20:[153]"--";:[130]
1010 [139] A[178]12 [167] 2000:[143] AEGYPTEN
1011 [139] A[178]11 [167] 2040
1012 [139] A[178]3 [167] 2060
1014 [139] A[178]4 [167] 2080
1017 [139] A[178]5 [167] 2100
1019 [139] A[178]6 [167] 2120
1023 [139] A[178]7 [167] 2140
1025 [139] A[178]8 [167] 2160
1026 [139] A[178]9 [167] 2180
1027 [139] A[178]10 [167] 2200
1028 [139] A[178]1 [167] 2220
1030 [139] A[178]2 [167] 2240:[143] PYRAMIDE
1032 [139] A[178]13 [167] 2260
1033 [139] A[178]14 [167] 2280
1034 [143] ZYLOPEN
1035 [139] A[178]15 [167] 2300
1036 [139] A[178]16 [167] 2320:[143] ANGEL
1038 [139] A[178]17 [167] 2340
1039 [139] A[178]18 [167] 2360
1040 [139] A[178]19 [167] 2380
1041 [139] A[178]20 [167] 2400
1042 [139] A[178]22 [167] 2420
1044 [139] A[178]21 [167] 2440
1046 [139] A[178]23 [167] 2460
1047 [139] A[178]24 [167] 2480
1099 A[178]1:[137] 1000
1100 [143] GRABE
1102 [153][166]1)"RIGHT$N DIESEM CONT (null)ART WAIT GIBT ES NICHTS ZUM
1104 PRINTSPC(1)"GRABEN.":GOTO 100
1130 PRINTSPC(1)"[201]N DIESEN [208]ART GIBTS AUCH NICHTS ZUM
1132 [153][166]1)"SCHNABOLIEREN ODER TRINKEN !":[137] 100
1200 [143] DRUECK
1202 [139] A[178]3 [167] 1210
1208 [153][166]1)"LEFT$IER GIBT ES NICHTS ZU DRUECKEN.":[137] 100
1210 [153][166]1)"STR$U DRUECKST DEN  (null)TEIN WAIT !
1212 PRINTSPC(1)"[213]ND SIEHE DA ! [206]ACH EINER [215]EILE,
1213 [153][166]1)"RUTSCHT DER (null)TEIN NACH HINTEN DURCH
1214 PRINTSPC(1)"UND EIN [199]ANG WIRD FREI !":GA=1:GOSUB10:GOTO 1000
1250 PRINTSPC(1)"[196]U ENTZUENDEST DAS [207]ELLAEMPCHEN !":GB=1:GOTO 100
1260 PRINTSPC(1)"[201]CH KANN ES NICHT ZU LASSEN DAS DU
1262 [153][166]1)"OHNE (null)ICHT IN DIE DUNKLE (null)YRAMIDE
1264 PRINTSPC(1)"GEHST ! [193]M [197]NDE KOMMST DU WOHL NICHT
1265 [153][166]1)"MEHR RAUS !":[137]100
1280 [139] CJ[178]1 [167] 1282
1281 [137] 480
1282 [153][166]1)"STR$U GIBST DEM LEFT$AENDLER DIE ATNNSICHTS=
1284 PRINTSPC(1)"KARTEN ! [196]IESER FREUT SICH [201]RRSINNIG
1285 [153][166]1)"UND SCHENKT DIR EINE (null)AFFEEMASCHINE !":L[178]1:CJ[178]2
1286 [137] 100
1290 [139] B[178]1 [167] 1292
1291 [137] 480
1292 [153][166]1)"STR$U GIBST DEM (null)YKLOPO DIE ATNXT ! STR$IESER
1293 PRINTSPC(1)"HUEPFT VOR [198]REUDE IM [196]REIECK. [197]R SAGT:
1295 [153][166]0)"SYS'VALNDLICH MUSS ICH NICHT MEHR BEI DIESEM
1296 PRINTSPC(1)"[193]DVENTURE DABEI SEIN ! [201]CH GEHE NUN
1297 [153][166]1)"NACH LENANADA WO ICH IN DER (null)ACHT
1298 PRINTSPC(1)"SCHLAFE UND AM [212]AG [194]AUEME FAELLE !'":GC=1:B=2:GOSUB10
1299 GOTO 1000
1300 REM MUSI
1302 FORI=1TO10:SI=54272
1303 FORII=0 TO 24:POKE SI+II,0:NEXT
1305 POKE SI+1,15:POKE SI+5,9:POKE 2+15,30
1307 POKE SI+24,15:POKE SI+4,129:POKE SI+4,65:POKE SI+4,129
1310 NEXTI:GOTO 1000
1400 IF CJ=0 THEN 1402
1401 GOTO 304
1402 PRINTSPC(1)"[196]U NIMMST DIE [203]ARTEN !":CJ=1:GOSUB10:GOTO 1000
1500 REM ABLEGEN !
1502 PRINTSPC(1)"[196]AS [211]CHIFF LEGT AB UND NIMMT [203]URS NACH
1505 [153][166]1)"PRINT# CHR$RIECHENLAND WAIT ! STR$OCH WAEHREND DER
1507 PRINTSPC(1)"[198]AHRT WIRST DU UEBER [194]OARD GESPUELT
1508 [153][166]1)"UND LANDEST AUF EINER KLEINEN  RIGHT$NSEL WAIT."
1510 [153][166]1)"(null)AS DANN PASSIERT IST WEIST DU NICHT
1512 PRINTSPC(1)"MEHR !
1514 [141]10
1520 [153]"LOAD"
1522 [153][166]1)"ATNLS DU WIEDER AUFWACHST BIST DU IN
1523 PRINTSPC(1)"DER  [200]OEHLE [146] EINES [218]YKLOPEN. [196]IESER
1525 [153][166]1)"EINAUEGIGE CONT (null)IESE WAIT  WILL DICH AUCH
1526 PRINTSPC(1)"NACH GROESSTEN [194]ITTEN VON DIR NICHT
1527 [153][166]1)"FREILASSEN !":PD[178]3
1530 [141]10:[141]1710
1550 [141]1700
1552 [139] PD[178]2 [167] A[178]12:[137] 1000
1554 [139] PD[178]3 [167] A[178]15:[137] 1000
1556 [137] 1780
1600 [153][166]1)"STR$ER (null)PIELSTAND WIR NUN SO AUF STR$ISKETTE
1602 PRINTSPC(1)"GESPEICHERT DAS ER SOFORT BEIM NAECH=
1604 [153][166]1)"STENMAL NACH GELADEN WERDEN KANN.":[141]10:[141] 1710
1606 [137] 1000
1699 [128]
1700 [159]1,8,4,"BRAIN SCORE,S,R"
1702 [132]1,F,B,C,O,E,D,N,PD,K,S,L,M,W,Z,A,LA,LB,LC,LD,LE,LF,DA,DB,DC,DD,DM
1703 [132]1,GA,GB,GC,CJ,GE
1705 [160]1:[142]
1710 [143] SCORE SAVE
1711 R$[178][199](13)
1712 [159]2,8,15,"S:BRAIN SCORE":[160]2
1713 [159]1,8,4,"BRAIN SCORE,S,W"
1714 [152]1,F;R$;B;R$;C;R$;O;R$;E;R$;D;R$;N;R$;PD;R$;K;R$;S;R$;L;R$;M
1715 [152]1,W;R$;Z;R$;A;R$;LA;R$;LB;R$;LC;R$;LD;R$;LE;R$;LF;R$;DA;R$;DB
1716 [152]1,DC;R$;DD;R$;DM;R$;GA;R$;GB;R$;GC;R$CJ;R$;GE
1718 [160]1:[142]
1750 [153]
1780 [153][166]1)"STR$U MUSST ERST DIE ANDEREN (null)EILE LOESEN
1782 PRINTSPC(1)"[197]IN [194]UCH FAENGT MAN JA AUCH NICHT IN
1783 [153][166]1)"DER  (null)ITTE WAIT AN.":[141]10
1785 [147]"BRAIN",8,1:[138]
2000 [143] A=12
2002 [153][166]1)"STR$AS (null)CHIFF IST NUN EIN (null)TUECK DEN
2003 PRINTSPC(1)"[206]IL HINAUF GEFAHREN. [193]N EINER GROSSEN
2005 [153][166]1)"(null)YRAMIDE MACHT ES HALT. STR$U GEHST AN
2006 PRINTSPC(1)"[204]AND UM DEN [193]UFENTHALT FUER EINE [194]E=
2008 [153][166]1)"SICHTIGUNG DER (null)YRAMIDE, WELCHE WEIT
2009 PRINTSPC(1)"IM [207]STEN STEHT ZU NUTZEN."
2010 PRINTSPC(1)"[205]OEGLICHE [210]ICHTUNGEN: [207]STEN,[200]OCH.
2012 [137] 100
2030 [143] A=8/B
2032 [153][166]1)"STR$U STEHST NEBEN DEM LEFT$AENDLER (null)TAND,
2033 PRINTSPC(1)"DER [200]AENDLER SCHMEISST GERADE ALLE
2034 [153][166]1)"(null)AFFEEMASCHINEN IN DEN (null)ONDERMUELL
2035 PRINTSPC(1)"[195]ONTAINER !
2036 [153][166]1)"(null)OEGLICHE (null)ICHTUNG: (null)ORDEN.":[137] 100
2040 [143] A=11
2042 [153][166]1)"RIGHT$M (null)ESTEN SIEHST DU DEN LEFT$AFEN, IM
2043 PRINTSPC(1)"[206]ORDEN IST EINE [211]PHINX GANZ IN DER
2045 [153][166]1)"(null)AEHE SIND AUCH EINPAAR LEFT$AENDLER=
2046 PRINTSPC(1)"STAENDE. [196]IE [204]UFT IST TROCKEN UND
2047 [153][166]1)"NUR EIN KLEINER (null)TREIFEN AM (null)IL
2048 PRINTSPC(1)"ENTLANG, IST LEICHT GRUEN BEWACHSEN.
2050 [153][166]1)"(null)ICHTUNGEN: (null)ORDEN,(null)STEN UND (null)ESTEN.":[137] 100
2060 [143] A=3
2061 [139] GA[178]1 [167] 2070
2062 [153][166]1)"STR$U LAUEFST DURCH EINEN NIEDRIGEN CHR$ANG
2063 PRINTSPC(1)"AN DEN [215]AENDEN SIND KLEINE [205]ALEREIEN.
2065 [153][166]1)"ATNN EINER (null)TELLE DER (null)AND IST EIN (null)TEIN
2066 PRINTSPC(1)"EIN [211]TUECK ZURUECK ANGEORDNET !
2067 [153][166]1)"(null)OEGLICHE (null)ICHTUNGEN: (null)UEDEN,(null)STEN.":[137] 100
2070 [153][166]1)"STR$U KANNST NUN AUCH NACH (null)ORDEN IN DAS
2072 PRINTSPC(1)"[204]OCH GEHEN. [215]AS DORT WOHL VERSTECKT
2073 [153][166]1)"IST ? (null)IELLEICHT DAS (null)HARAONEN CHR$RAB ?
2075 PRINTSPC(1)"[210]ICHTUNGEN: [206]ORDEN,[211]UEDEN,[207]STEN.
2076 [137] 100
2080 [143] A=4
2081 [153][166]1)"LEFT$A,LEFT$A ! (null)EINGELEGT ! STR$IES WAR EIN
2083 PRINTSPC(1)"[201]RRWEG, UM [199]RABRAUEBER [201]RR ZUFUEHREN !
2084 [153][166]1)"(null)OWAS GIBTS IN JEDER (null)YRAMIDE !
2085 PRINTSPC(1)"[201]CH WUERDE AN DEINER [211]TELLE MAL NACH
2086 [153][166]1)"EINEM CHR$EHEIMGANG SUCHEN !"
2088 [153][166]1)"(null)ICHTUNG: (null)ESTEN.":[137] 100
2100 [143] A=5
2102 [153][166]1)"(null)IE ES AUSSIEHT HAST DU (null)ECH GEHABT !
2105 PRINTSPC(1)"[214]OR DIR MUESSEN SCHON IRGEND WELCHE
2106 [153][166]1)"CHR$RABRAUEBER DA GEWESEN SEIN !
2109 PRINTSPC(1)"[193]USSER EINPAAR [211]CHATTEN AN DER [215]AND,
2110 [153][166]1)"AEH ICH MEINE NATUERLICH ASCACKELN IM
2112 PRINTSPC(1)"[211]TURM. [193]EH AN DER [215]AND !"
2113 IF F=0 THENPRINTSPC(1)"[196]U  SIEHST: [146] EINE [198]ACKEL !
2115 [153][166]1)"(null)OEGLICHE (null)ICHTUNG: (null)UEDEN !":[137] 100
2120 [143] A=6
2122 [153][166]1)"RIGHT$M (null)UEDEN SIEHST DU EINEN GROSSEN
2123 PRINTSPC(1)"[200]AENDLERSTAND UEBER WELCHEN EINE GRO=
2124 [153][166]1)"SSE (null)EUCHTSCHRIFT BRANGERT.
2125 PRINTSPC(1)"[197]S KOMMT DIR VOR ALS OB SICH DORT
2126 [153][166]1)"(null)ERGANGENHEIT UND (null)UKUNFT VERMISCHT
2127 PRINTSPC(1)"HABEN !
2130 [153][166]1)"(null)OEGLICHE (null)ICHTUNGEN: (null)UEDEN,(null)ESTEN.":[137] 100
2140 [153][166]1)"STR$U LAUEFST DURCH DEN SANDIGEN PEEKODEN,
2142 PRINTSPC(1)"DEINE [193]SPHALT GEWONNTEN [212]URNSCHUHE
2143 [153][166]1)"TUEN SICH SEHR SCHWER ! STR$U DENKST AN
2145 PRINTSPC(1)"DIE [215]ERBUNG FUER DEINE  [212]URNSCHUHE
2146 [153][166]1)"WO EIN (null)AUEFER DURCH DIE (null)UESTE LAUEFT
2148 PRINTSPC(1)"ALLES [194]AUERNFAENGEREI DENKST DU !
2150 [153][166]1)"STR$ER LEFT$AENDLER IST DOCH WEITER WEG ALS
2152 PRINTSPC(1)"DU GEDACHT HAST !"
2154 PRINTSPC(1)"[205]OEGLICHE [210]ICHTUNGEN: [206],[211],[215]."
2155 GOTO 100
2160 IF L=1 THEN 2030
2161 PRINTSPC(1)"[196]U STEHST VOR EINEM [200]AENDLERSTAND,
2163 [153][166]1)"DER GANZE (null)TAND STEHT VOLLER (null)AFFEE=
2165 PRINTSPC(1)"MASCHINEN. [196]U KOMMST KURZ MIT DEM
2167 [153][166]1)"LEFT$AENDLER INS CHR$ESPRAECH. STR$IESER ER=
2168 PRINTSPC(1)"ZAEHLT DIR DAS SEIN [199]ESCHAEFT SEHR
2170 [153][166]1)"SCHLECHT LAUEFT. STR$IES LIEGT SEINER
2172 PRINTSPC(1)"[205]EINUNG DARAN DAS DER ELEKTRISCHE
2173 [153][166]1)"(null)TROM NOCH NICHT ERFUNDEN IST.
2175 PRINTSPC(1)"[205]OEGLICHE [210]ICHTUNG: [206]ORDEN.
2176 [137] 100
2180 [143] A=9
2182 [153][166]1)"(null)OU ARE STANDING IN A HOT DESERT !
2184 PRINTSPC(1)"[217]OU CAN GO: [206]ORTH,[197]ASTH !"
2186 GOTO 100
2200 REM A=10
2202 PRINTSPC(1)"[206]UN EINE KLEINE [208]AUSE !":FORI=1TO5000:NEXT
2204 PRINTSPC(1)"[198]RISCH GESTAERKT KANN ES NUN WEITER
2206 [153][166]1)"GEHEN,IM (null)ORDEN SIEHST DU DIE (null)YRAMIDE
2208 PRINTSPC(1)"DER [215]EG DORTHIN BEGINNT ALLERDINGS
2210 [153][166]1)"ERST IM (null)STEN. (null)ACH (null)UEDEN FUEHRT EIN
2212 PRINTSPC(1)"VOLLKOMMEN UNINTERESSANTER [215]EG.
2213 [153][166]1)"(null)OEGLICHE (null)ICHTUNGEN: (null),(null),(null).
2215 GOTO 100
2220 REM A=1
2222 PRINTSPC(1)"[196]U STEHST VOR EINEM [215]EG WELCHER WIE
2223 [153][166]1)"VON EINEM (null)INEAL GEZOGEN ZU EINER
2224 PRINTSPC(1)"[208]YRAMIDE FUEHRT.[201]HR [206]AME IST MIR UNBE=
2225 [153][166]1)"KANNT, AUSSERDEM REICHT DIE (null)UEGE
2226 PRINTSPC(1)"DAS [202]ERUSALEM AM [205]EER LIEGT.
2227 [153][166]1)"STR$AS IST HALT KUENSTLERISCHE ASCREIHEIT.
2230 PRINTSPC(1)"[210]ICHTUNGEN: [206]ORDEN, [215]ESTEN, [207]STEN.
2232 [137] 100
2240 [143] A=2
2241 [153][166]1)"STR$U STEHST VOR DER NAMENLOSEN (null)YRAMIDE,
2243 PRINTSPC(1)"DIES IST GANZ IM [197]RNST FUER [208]YRAMIDEN
2245 [153][166]1)"JA NICHT SELTEN. ATNM LEFT$IMMEL SIEHST DU
2246 PRINTSPC(1)"EIN [198]LUGZEUG IM [193]NFLUG AUF DEN [193]IRPORT
2247 [153][166]1)"VON (null)AIRO. ((null).(null). ICH HABE SCHON WIEDER
2249 PRINTSPC(1)"GELOGEN ! [197]S IST DER [193]IRPORT VON [193]LEX=
2250 [153][166]1)"ANDRIA !"
2252 [153][166]1)"(null)OEGLICHE (null)ICHTUNGEN: (null),(null),(null)."
2254 [153][166]1)"(null).(null). RIGHT$CH WUERDE MIR ERST (null)ICHT MACHEN.
2255 GOTO 100
2260 REM A=13
2261 PRINTSPC(1)"[196]U STEHST VOR EINER [211]PHINX, SIE BE=
2263 [153][166]1)"EINDRUCKT DICH SEHR ! RIGHT$CH HOFFE ICH
2265 PRINTSPC(1)"GEHE DIR MIT DEM LAUFENDEN [194]ESCHREIB=
2266 [153][166]1)"UNGEN VON DEINEM STR$ENKEN NICHT AUF DIE
2267 PRINTSPC(1)"[211]ONNENUHR.
2268 [153][166]1)"VALIN (null)EG FUEHRT DURCH DIE VERFALLENDEN
2270 PRINTSPC(1)"[212]EMPELANLAGEN NACH [207]STEN ZU DER [208]YRA=
2271 [153][166]1)"MIDE !"
2272 [139] CJ[178]0 [167][153][166]1)"STR$U SYS SIEHST: WAIT ATNNSICHTSKARTEN.
2274 PRINTSPC(1)"[205]OEGLICHE [210]ICHTUNGEN: [211]UEDEN,[207]STEN.":GOTO 100
2280 REM A=14
2281 PRINTSPC(1)"[196]U STEHST AM [194]OARD DES [211]CHIFFES EIN
2284 [153][166]1)"(null)INK MIT DER LEFT$AND (BENUTZE LEFT$AND) GE=
2285 PRINTSPC(1)"NUEGT DAMIT DAS [211]CHIFF ABLEGT.
2286 [153][166]1)"(null)M DIR ZU HELFEN MUSS ICH SAGEN DAS DU
2287 PRINTSPC(1)"AUS [193]EGYPTEN EINE [198]ACKEL UND EINE
2288 [153][166]1)"(null)AFFEEMASCHINE MITNEHMEN MUSST !"
2289 [153][166]1)"(null)ICHTUNG: RUNTER.":[137] 100
2300 [143] ZYKLOPEN
2301 [143] A=15
2303 [139] GC[178]1 [167] 2330
2305 [153][166]1)"STR$U STEHST IN DER LEFT$OEHLE, DER (null)YKLOPE
2306 PRINTSPC(1)"SITZT IN EINER [197]CKE UND MURMELT: '[201]CH
2308 [153][166]1)"WOLLTE NICHT BEI DIESEN ATNDVENTURE DA=
2310 PRINTSPC(1)"BEI SEIN ! [201]CH WOLLTE [200]OLZFAELLER
2312 [153][166]1)"WERDEN IN DEN (null)AELDERN LENANADA'S !'"
2314 [153][166]1)"(null)OEGLICHE (null)ICHTUNGEN: (null)ORDEN,(null)STEN.":[137] 100
2320 [143] A=16
2321 [153][166]1)"STR$ER (null)YKLOP SCHEINT WOHL EIN BESONDERER
2323 PRINTSPC(1)"[193]NGEL [198]AN ZU SEIN ! [202]EDENFALLS HAENGEN
2324 [153][166]1)"AN DER (null)AND EINIGE TOTE ASCISCH SOWIE
2325 PRINTSPC(1)"EIN VOLLER [215]URFPFEILE STECKENDES [194]ILD
2326 [153][166]1)"VON (null)DYSSEUS !"
2328 [139] Z[178]0 [167][153][166]1)"STR$U  SIEHST: WAIT EINE ATNNGEL !
2329 PRINTSPC(1)"[205]OEGLICHE [210]ICHTUNG: [211]UEDEN.":GOTO 100
2330 REM A=15/B
2332 PRINTSPC(1)"[196]IE [200]OEHLE IST NUN LEER UND DER [193]US=
2334 [153][166]1)"GANG STEHT WEIT OFFEN. ATNUF EINEM
2335 PRINTSPC(1)"[218]ETTEL AN DER [215]AND STEHT '[199]OING TO
2336 [153][166]1)"LENANADA'.
2338 PRINTSPC(1)"[205]OEGLICHE [210]ICHTUNGEN: [206],[207],[215].
2339 [137] 100
2340 [153][166]1)"(null)EBEN JA NICHT SCHLECHT DIE (null)YKLOPEN,
2341 PRINTSPC(1)"DAFUER DAS SIE NICHT IN DER [199]EWERK=
2343 [153][166]1)"SCHAFT SIND, IST DAS NICHT SCHLECHT.
2344 PRINTSPC(1)"[193]UF ALLE [198]AELLE STEHST DU IN EINEM
2345 [153][166]1)"(null)UXUS (null)CHLAFZIMMER !
2346 PRINTSPC(1)"[205]OEGLICHE [210]ICHTUNG: [215]ESTEN."
2347 GOTO 100
2360 REM A=18
2361 PRINTSPC(1)"[196]U STEHST VOR DER [218]YLOPEN [200]OEHLE,
2362 [153][166]1)"EIN KLEINER (null)FAD FUEHRT NACH (null)ESTEN.
2364 PRINTSPC(1)"[197]INE DUENNE [214]EGITATION ERSTRECKT SICH
2365 [153][166]1)"UEBER DIE RIGHT$NSEL.
2367 PRINTSPC(1)"[205]OEGLICHE [210]ICHTUNGEN: [215]ESTEN,[207]STEN.
2368 [137] 100
2380 [143] A=19
2381 [153][166]1)"STR$A HIER ALLES SEHR FLACH IST KANNST DU
2384 PRINTSPC(1)"ERKENNEN DAS WEIT IM [211]UEDOSTEN EIN
2386 [153][166]1)"(null)EICH IST, NAH IM (null)UEDWESTEN IST EIN
2387 PRINTSPC(1)"[200]AFEN, ANDEM EIN KLEINES [211]CHIFF AN=
2388 [153][166]1)"KERT !"
2389 [153][166]1)"(null)OEGLICHE (null)ICHTUNGEN: (null),(null),(null).
2390 GOTO 100
2400 REM A=20
2402 PRINTSPC(1)"[196]U STEHST AM WESTLICHSTEN [210]AND DER
2404 [153][166]1)"RIGHT$NSEL, AN DIESER (null)TELLE IST ES ECHT
2405 PRINTSPC(1)"OEDE ! [212]OTE [202]EANS.
2407 [153][166]1)"(null)OEGLICHE (null)ICHTUN: (null)STEN.":[137]100
2420 [143] A=22
2422 [153][166]1)"RIGHT$M (null)STEN GEHT ES ZU EINEM (null)EICH, IM
2423 PRINTSPC(1)"[215]ESTEN ZUM [200]AFEN !"
2425 PRINTSPC(1)"[196]IE [211]ONNE HAT SOEBEN IHREN HOECHSTEN
2426 [153][166]1)"(null)TAND ERREICHT, KURZUM ES IST HEISS !
2430 PRINTSPC(1)"[205]OEGLICHE [210]ICHTUNGEN: [206],[215],[207].":GOTO 100
2440 REM A=21
2442 PRINTSPC(1)"[196]U STEHST AN DENN SO OFT SCHON ER=
2443 [153][166]1)"WAEHNTEN LEFT$AFEN DER RIGHT$NSEL, LEFT$AFEN KANN
2445 PRINTSPC(1)"MAN ES EIGENTLICH NICHT NENNEN, [211]TEG
2446 [153][166]1)"WAERE BESSER GESAGT !
2448 PRINTSPC(1)"[197]IN KLEINES [211]CHIFF AUF WELCHES DU
2449 [153][166]1)"LEICHT BEDIENEN KOENNTEST LIEGT AN IHM.
2450 PRINTSPC(1)"[205]OEGLICHE [210]ICHTUNGEN: [207]STEN,[200]OCH.":GOTO 100
2460 REM A=23
2461 PRINTSPC(1)"[196]U STEHST AN EINEM WUNDER SCHOENEN
2463 [153][166]1)"PEEKERGSEE, IM LEFT$INTERGRUND SIEHST DU
2465 PRINTSPC(1)"DAS [205]ATTERHORN. [206]ATUERLICH NUR IN
2466 [153][166]1)"DEINER (null)HANTASIE ! LEFT$IER KOENNTE MAN
2467 PRINTSPC(1)"GUT ANGELN !"
2468 PRINTSPC(1)"[205]OEGLICHE [210]ICHTUNG: [215]ESTEN.":GOTO 100
2480 REM A=24
2481 PRINTSPC(1)"[196]U STEHST AN [194]OARD DES KLEINEN [194]OOTES
2483 [153][166]1)"ES BESITZT EINEN KLEINEN (null)AST.
2485 PRINTSPC(1)"[214]ON HIER SOLLTEST DU EINEN [198]ISCH MIT=
2486 [153][166]1)"NEHMEN, WENN DU ABLEGEN WILLST GEBE
2487 PRINTSPC(1)"BENUTZE [194]OOT EIN !
2489 [153][166]1)"(null)OEGLICHE (null)ICHTUNG: RUNTER.
2490 GOTO 100
2500 IF A=23 THEN 2510
2501 IF A=21 THEN 2505
2504 GOTO 780
2505 PRINTSPC(1)"[196]U VERSUCHST EINEN [198]ISCH ZU FANGEN,
2506 [153][166]1)"DOCH DU ANGELST VERGEBENDS.":[137] 100
2510 [153][166]1)"STR$U FAENGST AN ZU ANGELN UND SIEHE DA
2512 PRINTSPC(1)"NACH EINPAAR [211]TUNDEN BEISST EIN [198]ISCH
2513 [153][166]1)"AN.":C[178]1
2515 [153][166]1)"STR$U STECKST IHN SOFORT IN DIE ASCRISCHE=
2516 PRINTSPC(1)"BOX !":GOSUB10:GOTO 1000
2520 PRINTSPC(1)"[196]U FRAGST DEN [218]YKLOPEN WAS SEIN
2521 [153][166]1)"GROESSTER (null)UNSCH WAER ? VALR SAGT:'RIGHT$CH
2522 PRINTSPC(1)"WILL EINE [193]XT, SO EINE WOMIT MAN
2524 [153][166]1)"PEEKAUEME FAELLT !'":[137] 100
2530 [153][166]1)"STR$U FRAGST IHN WIE ES IHM GEHT ? VALR
2531 PRINTSPC(1)"ANTWORTET: [158]'[206]UEWA, GANZ SCHLECHT !'":GOTO 100
2540 PRINTSPC(1)"[196]U FRAGST IHN WIE ER SICH FUEHLT ?
2542 [153][166]1)"VALR ANTWORTET SCHNELL: SYS'(null)UPER !'":[137] 100
2550 [153][166]1)"STR$U WIRST DOCH NICHT EINEN UNSCHULDIGEN
2552 PRINTSPC(1)"SCHLAGEN ?":GOTO 100
2560 PRINTSPC(1)"[196]U HAST [199]LUECK DAS ICH FUER DICH MIT=
2561 [153][166]1)"DENKE SONST WAERST DU WOHL SCHON LANGE
2563 PRINTSPC(1)"'[199]AME [207]VER' !":GOTO 100
2570 PRINTSPC(1)"[197]R SAGT:'[202]A [196]AIMLER [193]KTIEN WUERDE ICH
2572 [153][166]1)"KAUFEN !'":[137] 100
3000 [153][166]1)"STR$U LEGST MIT DEN SYS (null)UDERBOOT WAIT AB UND
3002 PRINTSPC(1)"NIMMST [203]URS AUF [195]ASCARA (WATER) !
3003 [153][166]1)"PEEKESSER GESAGT NACH (null)RETA IN DEN 4 (null)ART
3005 PRINTSPC(1)"DES [154] [193]DVENTURE [146].":GOSUB10:PD=4:GOSUB1710
3006 LOAD"BRAIN P.III LOAD",8,1:RUN
4000 IF A>14 THEN PD=3:GOTO 1000
4002 GOTO 1000